home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / params / params.bas < prev    next >
BASIC Source File  |  1994-10-16  |  2KB  |  89 lines
  1. Option Explicit
  2. '
  3. ' Routines to Set and Get Application Level parameters and
  4. ' to pass variables from Form-to-Form
  5. '
  6.   '
  7.   ' Constants for Number of Parameters
  8.   '
  9.   ' Set these constants to the actual number of parameters
  10.   ' you will be using in the program or a large enough handle
  11.   ' any expected contengency.  This is the only part
  12.   ' of this set of routines that needs to be modified from
  13.   ' program to program.  If you wish, these could be moved
  14.   ' to Global Constants.
  15.   '
  16.     Const P_MAX_FORM = 4
  17.     Const P_MAX_APP = 1
  18.   '
  19.   ' Module Level Variables
  20.   '
  21.     '
  22.     ' These items can be module level or they could be move to
  23.     ' Static arrays in a Private function to further limit
  24.     ' their scope, if desired.
  25.     '
  26.       '
  27.       ' Form Level Parameters
  28.       '
  29.         Dim msFormParams(P_MAX_FORM) As String
  30.  
  31.       '
  32.       ' Application Level Parameters
  33.       '
  34.         Dim msAppParams(P_MAX_APP) As String
  35.  
  36. Sub ClearFormParam ()
  37.   '
  38.   ' Clear Form Level Parameters
  39.   '
  40.   Erase msFormParams
  41. End Sub
  42.  
  43. Function GetAppParam (iElement As Integer) As String
  44.   '
  45.   ' Return specified Application Parameter
  46.   '
  47.   If iElement > P_MAX_APP Then
  48.     Debug.Print "Invalid iElement sent to GetAppParam"
  49.     GetAppParam = ""
  50.   Else
  51.     GetAppParam = msAppParams(iElement)
  52.   End If
  53. End Function
  54.  
  55. Function GetFormParam (iElement As Integer) As String
  56.   '
  57.   ' Return specified Form Level Parameter
  58.   '
  59.   If iElement > P_MAX_FORM Then
  60.     Debug.Print "Invalid iElement sent to GetFormParam"
  61.     GetFormParam = ""
  62.   Else
  63.     GetFormParam = msFormParams(iElement)
  64.   End If
  65. End Function
  66.  
  67. Sub SetAppParam (sParam As String, iElement As Integer)
  68.   '
  69.   ' Set specified Application Parameter
  70.   '
  71.   If iElement > P_MAX_APP Then
  72.     Debug.Print "Invalid iElement sent to SetFormParam"
  73.   Else
  74.     msAppParams(iElement) = sParam
  75.   End If
  76. End Sub
  77.  
  78. Sub SetFormParam (sParam As String, iElement As Integer)
  79.   '
  80.   ' Set specified Form level Parameter
  81.   '
  82.   If iElement > P_MAX_FORM Then
  83.     Debug.Print "Invalid iElement sent to SetFormParam"
  84.   Else
  85.     msFormParams(iElement) = sParam
  86.   End If
  87. End Sub
  88.  
  89.